home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Frames of Reference / card_9852.txt < prev    next >
Text File  |  1990-04-02  |  3KB  |  93 lines
  1. -- card: 9852 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 9670
  5. -- name: Experiment 3
  6. ----- HyperTalk script -----
  7. on runExperiment
  8.   global cardClear3
  9.   global tableIncrement3,puckIncrement3
  10.   global puckDir
  11.  
  12.   put 180 into puckY
  13.   put 202 into markerY
  14.   put 30 into puckX
  15.   put 30 into markerX
  16.   put 1 into puckDir
  17.   put false into cardClear3
  18.   hide menubar
  19.   put "Click the mouse to stop." into field "blurb"
  20.  
  21.   repeat until the mouse is down
  22.     if puckX > 398 or markerX > 404 then exit repeat
  23.     checkPuckPos
  24.     put (markerX+tableIncrement3) into markerX
  25.     put (puckX+tableIncrement3+(puckIncrement3*puckDir)) into puckX
  26.     set the loc of button "table marker" to markerX,markerY
  27.     set the loc of button "puck" to puckX,puckY
  28.   end repeat
  29.  
  30.   choose browse tool
  31.   put "Click on this field to restore the screen." into field "blurb"
  32.   show menubar
  33.  
  34. end runExperiment
  35.  
  36. on checkPuckPos
  37.   global barrierDistance,puckDir
  38.  
  39.   if abs((item 1 of the loc of button "puck") - (item 1 of the loc of button "table marker")) >= barrierDistance then put -(puckDir) into puckDir
  40. end checkPuckPos
  41.  
  42.  
  43.  
  44. -- part 1 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=20 top=196 right=208 bottom=40
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 15827 / 15827
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Table marker
  56.  
  57.  
  58. -- part 2 (button)
  59. -- low flags: 00
  60. -- high flags: 0000
  61. -- rect: left=13 top=164 right=197 bottom=47
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 22073 / 22073
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: puck
  70.  
  71.  
  72. -- part 3 (field)
  73. -- low flags: 81
  74. -- high flags: 2004
  75. -- rect: left=11 top=40 right=326 bottom=403
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 12
  81. -- style flags: 256
  82. -- line height: 16
  83. -- part name: Help
  84.  
  85.  
  86. -- part contents for background part 5
  87. ----- text -----
  88. Press this field to begin pushing the puck.
  89.  
  90. -- part contents for card part 3
  91. ----- text -----
  92.    This experiment deals with a table which is mounted on a cart that is moving to the right with a constant velocity.  Two observers, also on the cart, are pushing a dry ice puck (which is nearly frictionless) back and forth along the line of motion of the cart.  In their frame of reference, the puck moves at the same velocity in both directions, but in the earth frame, the motion of the table must also be taken into account.
  93.    This card simulates that experiment with a few modifications.  The white rectangle in the table is a fixed point in the center of the table, allowing you to see that the table is, in fact, moving.  The two observers have been replaced with invisible, elastic barriers.  Thus, when the center of the puck reaches a certain distance from the marker, the puck "bounces" back in the other direction.